﻿Imports Logica

Public Class RegistrarMeta

    Private ucConsultarMetas As ConsultarMetas

    Private Sub RegistrarMeta_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load
        lblRetroalimentacion.Text = ""
    End Sub

    ''' <summary>
    ''' Accion del boton de Aceptar.
    ''' </summary>
    ''' <remarks>Creado Por: Roberto Fiatt, Fecha: 15/06/2010, Modificado: 18/06/2010</remarks>
    Private Sub btnAceptar_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles btnAceptar.Click
        Dim fechaInicio As Date
        Dim fechaEsperada As Date

        If txtDescripcion.Text = "" Or txtDescripcion.Text.Trim = "" Then
            txtDescripcion.Focus()
            lblRetroalimentacion.ForeColor = Color.Red
            lblRetroalimentacion.Text = "El campo '" & txtDescripcion.Tag & "' está vacío."
            Exit Sub
        End If

        fechaInicio = dtpFechaInicio.Text
        fechaEsperada = dtpFechaEsperada.Text

        If fechaEsperada > fechaInicio Then
            Try
                Gestor.agregarMeta(txtCodigoEmpleado.Text, txtDescripcion.Text, fechaInicio, fechaEsperada)
                lblRetroalimentacion.ForeColor = Color.Green
                lblRetroalimentacion.Text = "Se ha registrado con éxito."
                txtDescripcion.Text = ""
            Catch sqlEx As SqlClient.SqlException
                lblRetroalimentacion.ForeColor = Color.Red
                lblRetroalimentacion.Text = "Error de conexión."
            Catch ex As Exception
                MessageBox.Show(ex.Message, "Error", MessageBoxButtons.OK, MessageBoxIcon.Error)
            End Try
        Else
            lblRetroalimentacion.ForeColor = Color.Red
            lblRetroalimentacion.Text = "La Fecha Esperada no puede ser anterior a la Fecha Inicio."
        End If
    End Sub
    ''' <summary>
    ''' Constructor Sobrecargado.
    ''' </summary>
    ''' <param name="p_codigoEmpleado">Codigo.</param>
    ''' <remarks>Creado Por: Roberto Fiatt, Fecha: 15/06/2010, Modificado: 18/06/2010</remarks>
    Public Sub New(ByVal p_codigoEmpleado As String)

        ' This call is required by the Windows Form Designer.
        InitializeComponent()

        ' Add any initialization after the InitializeComponent() call.
        txtCodigoEmpleado.Text = p_codigoEmpleado
        txtCodigoEmpleado.ReadOnly = True

    End Sub

    Public Sub New()

        ' This call is required by the Windows Form Designer.
        InitializeComponent()

        ' Add any initialization after the InitializeComponent() call.

    End Sub
    ''' <summary>
    ''' Retorna a la pantalla anterior.
    ''' </summary>
    ''' <remarks>Creado Por: Roberto Fiatt, Fecha: 28/06/2010 Modificado: 28/06/2010</remarks>
    Private Sub btnCancelar_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles btnCancelar.Click
        Dim usuario As Usuarios
        Dim ubicacion As New Point(152, 0)

        ucConsultarMetas = New ConsultarMetas(txtCodigoEmpleado.Text)
        ucConsultarMetas.Location = ubicacion

        usuario = Me.Parent
        usuario.Controls.Add(ucConsultarMetas)
        usuario.mostrar(ucConsultarMetas)
        usuario.tvUsuarios.SelectedNode = usuario.tvUsuarios.Nodes("ndConsultarUsuario")
    End Sub
    ''' <summary>
    ''' Limpiar los campos modificables.
    ''' </summary>
    ''' <remarks>Creado Por: Roberto Fiatt, Fecha: 28/06/2010 Modificado: 18/06/2010</remarks>
    Private Sub btnLimpiar_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles btnLimpiar.Click
        txtDescripcion.Text = ""
        lblRetroalimentacion.Text = ""
    End Sub
End Class
